program prog;

var
      i, n: integer;

begin
	n:=100;
	while n > 0 do 
	begin
		i := i + 5;
	end;
end.